unit ParamsFormUnit;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs,
  ComCtrls, Buttons, ExtCtrls, ButtonPanel, IniConfigProvider, LuiConfig,
  LuiConfigTree, WrkspcCfgrtn;

type

  { TParamsForm }

  TParamsForm = class(TForm)
    ParamsBtnPanel: TButtonPanel;
    iiIniCfgProv: TIniConfigProvider;
    IntgrlCfgn: TLuiConfig;
    IntgrlCnfgTree: TLuiConfigTree;
    procedure CancelButtonClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormHide(Sender: TObject);
    procedure OKButtonClick(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
    procedure UpdateParams(Params: TIntgrlCfgrtn);
    procedure ResetParams;
    procedure SaveParams;
    procedure UpdateSection;
    procedure SaveSection;
  end; 

var
  ParamsForm: TParamsForm;

implementation

{ TParamsForm }

procedure TParamsForm.CancelButtonClick(Sender: TObject);
begin
//  ResetParams;
end;

procedure TParamsForm.FormCreate(Sender: TObject);
begin
  iiIniCfgProv.FileName := IIntegralConfig.CfgFileName;
  IntgrlCfgn.Active := True;
end;

procedure TParamsForm.FormHide(Sender: TObject);
begin
  IntgrlCfgn.Active := False;
end;

procedure TParamsForm.OKButtonClick(Sender: TObject);
begin
//  SaveParams;
end;

procedure TParamsForm.UpdateParams(Params: TIntgrlCfgrtn);
begin
//  iiIniCfgProv.FileName := Params.CfgFile;
//  IntgrlCfgn.Active := True;
//  IntgrlParams := Params;
//  ResetParams;
end;

procedure TParamsForm.ResetParams;
begin

end;

procedure TParamsForm.SaveParams;
begin
  //iiIniCfgProv.
end;

procedure TParamsForm.UpdateSection;
begin

end;

procedure TParamsForm.SaveSection;
begin

end;

initialization
  {$I paramsformunit.lrs}

end.

